home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ghosts: The Aircraft Of WWII 3
/
Ghosts: The Aircraft of WWII - Volume 3.iso
/
pc
/
AzureBay Screen Saver 3.5.msi
/
Binary.NewBinary24
< prev
next >
Wrap
Text File
|
2007-04-03
|
504b
|
13 lines
Dim fso, imgSetExePath, WSHShell, imgSetExeName, sourceDir
Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHShell = CreateObject("WScript.Shell")
sourceDir = Session.Property("SourceDir")
imgSetExeName = "ImgInstall.exe"
imgSetExePath = sourceDir & imgSetExeName
If fso.FileExists(imgSetExePath) Then
WSHShell.run chr(34) & imgSetExePath & chr(34), 5, True
msgbox "File Exists" & chr(34) & imgSetExePath & chr(34)
End If
Set WSHShell = Nothing
set fso = Nothing
msgbox sourceDir